UC知道asp 实现"下载"的代码有点问题!望高人解决!
来源：百度知道 编辑：UC知道 时间：2024/06/26 03:02:32
<% Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
url="d:/数据库基础SQL(1).rar"
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Response.AddHeader "Content-Disposition", &qu
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
url="d:/数据库基础SQL(1).rar"
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Response.AddHeader "Content-Disposition", &qu
试试这种方法，如果文件太大无法下载的话，可以去iis里进行调整。
<%
'strFile用相对路径或http绝对路径，为了安全着想最好别用盘符的这种绝对路径。
strFile="数据库基础SQL(1).rar"
downloadFile(strFile)
%>
<%
Function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
response.Write "<script language=javascript>alert('找不到资源，请返回。');window.close();</script>"
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
Response.AddHeader &